Max Special: Max Gallery/Max Special Gallery.iso/pc/gall8.dir/00060_navigation scripts.ls

Text File | 1997-04-03 | 2.7 KB | 78 lines

on setCursors
  global leftFrame, rightFrame, aheadFrame, backFrame, monitor1Frame, monitor2Frame
  if leftFrame = "*" then
    set the cursor of sprite 5 to -1
  else
    set the cursor of sprite 5 to [the number of member "leftCursor", the number of member "leftCursorMask"]
  end if
  if rightFrame = "*" then
    set the cursor of sprite 6 to -1
  else
    set the cursor of sprite 6 to [the number of member "rightCursor", the number of member "rightCursorMask"]
  end if
  if aheadFrame = "*" then
    set the cursor of sprite 7 to -1
  else
    set the cursor of sprite 7 to [the number of member "aheadCursor", the number of member "aheadCursorMask"]
  end if
  if backFrame = "*" then
    set the cursor of sprite 8 to -1
  else
    set the cursor of sprite 8 to [the number of member "backCursor", the number of member "backCursorMask"]
  end if
  if monitor1Frame = "*" then
    set the cursor of sprite 9 to -1
  else
    set the cursor of sprite 9 to [the number of member "aheadCursor", the number of member "aheadCursorMask"]
  end if
  if monitor2Frame = "*" then
    set the cursor of sprite 10 to -1
  else
    set the cursor of sprite 10 to [the number of member "aheadCursor", the number of member "aheadCursorMask"]
  end if
end

on setJumpFrames
  global leftFrame, rightFrame, aheadFrame, backFrame, monitor1Frame, monitor2Frame
  set theFramesCast to the frameLabel & ".JF"
  set theText to the text of member theFramesCast
  set leftFrame to line 1 of theText
  set rightFrame to line 2 of theText
  set aheadFrame to line 3 of theText
  set backFrame to line 4 of theText
  set monitor1Frame to line 5 of theText
  set monitor2Frame to line 6 of theText
  if the last char in aheadFrame = "+" then
    set tempString to chars(aheadFrame, 1, the number of chars in aheadFrame - 1)
    if isWindows() then
      set aheadFrame to tempString & "W"
    else
      set aheadFrame to tempString
    end if
  end if
  if the last char in backFrame = "+" then
    set tempString to chars(backFrame, 1, the number of chars in backFrame - 1)
    if isWindows() then
      set backFrame to tempString & "W"
    else
      set backFrame to tempString
    end if
  end if
  if the last char in monitor1Frame = "+" then
    set tempString to chars(monitor1Frame, 1, the number of chars in monitor1Frame - 1)
    if isWindows() then
      set monitor1Frame to tempString & "W"
    else
      set monitor1Frame to tempString
    end if
  end if
  if the last char in monitor2Frame = "+" then
    set tempString to chars(monitor2Frame, 1, the number of chars in monitor2Frame - 1)
    if isWindows() then
      set monitor2Frame to tempString & "W"
    else
      set monitor2Frame to tempString
    end if
  end if
end